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Buy, Sell, Trade In and Service 


PICK SPECIALISTS 


ADDS MENTOR 
MICRODATA 
GA ZEBRA 
CIE 


ULTIMATE 

PRIME 

PRINTRONIX 

WYSE 


New and Used Systems 
Peripherals and Upgrades 
Immediate Delivery 
Savings up to 60 % 

Repair and Befurh Services 


BAYSIDE 

i ^ \ ' 

COMPUTER CORPORATION 


(415) 490-8733 


A Pop-up Calculator 

Even though computers are 
nothing but fancy calculators, it’s 
surprising how hard it is to use some 
computers for m akin g simple 
calculations. For example, if you want 
to add an arbitrary string of numbers on 
a Pick computer, you have three clumsy 
choices: (1) write a BASIC program to 
input and total numbers, (2) save the 
numbers in a file and total them with a 
command like SUM, or (3) use a bunch 
of awkward ADDD commands to 
compute partial sums and total those up. 
Shouldn’t there be an easier way? 

The CALC program on page 6 is an 
easier way. It displays a calculator on 
the screen and allows the operator to 
input arbitrary calculations. As the user 
operates the terminal’s keypad, the 
results of calculations are 
simultaneously displayed by the on¬ 
screen calculator, just like a real adding 
machine. With the CALC program, it’s 
no longer necessary to keep a real 
calculator on the same desk with a Pick 


computer terminal. A Pick computer 
can now also easily operate as a simple 
desk calculator. 

Calculators come in a variety of 
flavors. Some use reverse polish input, 
some use infix notation, some are 
scientific oriented, some are accounting- 
style adding machines, and so on. 

CALC only performs simple arithmetic, 
and does it in “human readable” style. 
For example, pressing the keys “3”, 

“+”, “2”, “1”, “=” results in a 

display of 4. 

CALC begins by defining some 
string constants, then cleariilg the screen 
and homing the cursor in line 2. COL 
and ROW in line 3 define the upper left 
hand comer of the displayed calculator. 
You can change Just that line to make 
the calculator appear anywhere on the 
screen. If your terminal allows the 
computer to sense the current contents 
of the screen, such as by sending the 
ESC 6 command to a Wyse 50 terminal, 
you may want to modify CALC to first 
save the contents of the screen, then 
display the calculator, then restore the 



Back Issues 


still avafiaKte while supplies 
last. 2^receive your FREE 
copie^PPdicate which issues 
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REALITY 


128K MOS MEMORY 
INTELLIGENT 8-WAYS 
128MB REFLEX II 
TAPE DRIVES 
PEP UPGRADES 


SPIRIT M6000-M6600 W SEQUEL IV19000-M9250 


512K MEMORY 
1MB MEMORY 
75MB DISC DRIVES 
COMPLETE SYSTEMS 


CAsrcoiupn: UHk 

REALITY, SPIRIT AND SEQUEL ARE TRADEMARKS OF McDONNELL DOUGLAS CORPORATION 


1MB MEMORY 
ACLC AND ACLC1 
MTU/PTR CONTROLLERS 
TAPE DRIVES 
EXPANSION CABINETS 
COMPLETE SYSTEMS 


Call CHUCK HAAS 

For Competitive Prices 

, 1-800-634-8733 

IN OHIO 513-528-5400 


Does Your Mailing 
Label Say RENEW? 

If SO, your subscription is about to EXPIRE! To avoid missing your next free issue of 
Product Profiles, renew IMMEDIATELY by filling out and returning the front cover coupon - 

for a free subscription! 

The last two digits of your mailing label number indicate the number of the last issue you’ll receive. 
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screen contents when CALC is 
done, thereby providing a true 
pop-up calculator that doesn’t 
wipe out the ciurent display. 

Line 2 0 nulls the prompt 
character so that question marks 
don’t appear on the screen, then 
resets the primary CALC 
variables: OPERAND, RESULT, 
and OPERATOR. OPERAND is 
used to hold the ciurent number 
being input by the user. 

RESULT holds the result of all 
calculations so far. OPERATOR 
remembers the pending 
operation to perform after the 
user is done typing the current 
OPERAND. 

Line 21 initializes the 
calculatOT’s display format to 4 
digits of precision. Typing a 
number and then hitting the P 
key will make the calculator 
display from 0 to 4 digits of 
precision. 

The calculator’s logic is 
controlled by the large LOOP 
Iran lines 22 to 73. If a new 
OPERAND is being input, it is 
displayed by line 25, otherwise 
the current RESULT is 
displayed with appropriate 
precision by line 2 6. Line 2 8 
waits for the next keystroke. K 
an ^^input, the LOOP exits at 
lin^R, the screen is cleared at 
line 7 4, and CALC stops. 

Ahy other inpiit^||ji^'" 
coD|^ to one of the various 
CAlKlauses in the LOOP. In 
every valid CASE, KEYCOL and 
KEYROW are set to the screen 
position of the pressed key, the 
press subroutine is called to 
animate the key to provide 
some simple visual feedback, 
the appropriate calculation or 
adjustment is made to variables, 
and the release subroutine is 
called to finish the animation. 
The press and release 
subroutines simply display XXX 
at the key position and then 
restore the screen. The 
SYSTEM (13) call in press 
causes a timeslice quantum 
release to slow the animation 
enough to be noticeable. All 
press and release 
references can be removed from 
CALC without harming any of 
the calculator’s logic. 

Typing a digit from 1 to 9 


OPERAND doesn’t already contain a 
decimal point, as determined by the test 
in line 67. 

The C key clears the calculator by 
calling the reset subroutine in line 
43. The P key uses the previously input 
digit to change the calculator’s precision 
by calling the digits subroutine in 
line 54. 

The +, -, /, *, and = keys all 
compute a running RESULT by calling 
the execute subroutine to force the 


COMPUTER CAHLINTJ PROBLEMS 
Let BASELINE SERVICES help! 

We can install cables or provide you with 
pre-made cables, ^^e also sell all the cabling 
hardware you need to do the Job 
yourself (cable, pins & DB's). 

Call or write TODAY for our free catalog. 
(916)756-7024 1209 Alice St. 

(714) 859-1332 Davis, CA 95616 


COURSEWARE!!! 


Now you can truly master the use of your Pick system with the finest 
computer-based training available from the leaders in tutorial software... 



Each of these training products is a complete, computer-based, self-study 
teaching system that anyone can use over and over again. Each teaches you 
through simulated hands-on work sessions in which you actively participate. 
They are clever, entertaining, and all learning is done right on the terminal. 


causes the CASE at line 32 to 
be reached. The tricky mapping 
in lines 33 and 34 takes 
advantage of the regular layout 
of the numeric keys and avoids 
having to have a separate CASE 
for each digit. When a digit is 
typed, line 36 or 39 simply 
appends the digit to the 
OPERAND. A decimal point is 
also appended to OPERAND in 
line 69, but only if the 


CRESCEMDO Associates. Inc. 

24350 Joy R(Md, Suite 9 RKttord Township, Mdiigin 48239 1313) 537-1919 


CompuSheet -E is a trademark of Interactive Systems 
Prof Is a trademark of Crescendo Associates, Inc. 
Pick is a trademark of Pick Systems, Irvine. CA 


Yes! Please send more info on:. 
Name _ 


Company 
Address _ 

City _ 

Phone _ 


State. 


Zip. 


Computer. 
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See what you *re missing... 


wwv 

RO LAND 13407 DISCOVERY SYSTE 1216 E 132ND ST 55417 

HE YAHG 92711 12236 RIVERWOOD DR 55417 

GA FINE 8812 12513 MYSTIC LN 55417 

CH FITZPATR 82763 MOUNTAIN BELL 12729 PARKWOOD DR 55417 

H AVILES 11837 MOSLER SAFE CO 13109 PENN S 55417 

B BOUGHOUT 63920 14784 W 52ND AVE 55417 

C RICHMOND 35737 5220 GARRISON ST #6 55417 

S HANNA 63914 BAILEY ELECTRON 5280 TABOR ST 55417 

S YU 41066 TAMS CHINESE FO 5282 UNION CT #2 55417 

MA BUCKLEY 63931 BROKERS THREE R 5387 CARR ST #317 55417 


PONUM VENUM VENAME. . . ITM DESCRIPTION . . . 


PA DECOSTER 97530 


5425 VIVIAN CIR 


A PEYTON 332 7903 RALSTON RO 

KE HOPTON 82771 TELEDYNE CONTRO 4920 W 69TH AVE 
KE DALLARA 82769 EAGLE PUBLISHIN 5550 H 80TH PL #44 
M TOBIN 11363 5610 W 71ST CIR 

HO RODGERS 96529 SOUTHWESTERN UN 5853 PIERCE ST #103 
PA LI 74400 CARTER CO 6917 W 83RO WAY 

JI LOOTA 82777 7040 W 75TH PL 1809 

M BUECHLER 63943 SOFTWARE RESEAR 7355 WEBSTER ST 


55417 

55417 

55418 
55418 
55418 
55418 
55418 
55418 
55418 


10203 

10203 

10203 

10377 

10377 

10203 

10203 

10377 

10203 

10203 

10203 

10377 

10377 

10203 

10377 

10377 

10377 

10377 

10377 

10377 


JAMECO 
JAMECO 
JAMECO 
EDS CORF 
EDS CORP 
JAMECO 
JAMECO 
EDS CORP 
JAMECO 
JAMECO 
JAMECO 
EDS CORP 
EDS CORP 
JAMECO 
EDS CORP 
EDS CORP 
I EDS CORP 
I EDS CORP 
I EDS CORP 
EDS CORP 


1 POT, LINER, 2W 

2 POT, LINER,.5W 

3 CAP, MICA, lOP 
1 74ALS00 NAND 

1 74ALS00 NAND 

1 POT, LINER, 2W 

2 POT, LINER,.5W 
2 74ALS112 DUALF 

1 POT, LINER, 2W 

2 POT, LINER,.5W 

3 CAP, MICA, lOP 
2 74ALS112 DUALF 
2 74ALS112 DUALF 

2 POT, LINER, .5W 

3 N8277 8B SHIFT 
3 N8277 8B SHIFT 
3 N8277 8B SHIFT 
3 N8277 8B SHIFT 
2 74ALS112 DUALF 
2 74ALS112 DUALF 


D# |DUE.I 

I VWWVWl 

1 102-02-871 
1 102-02-871 
1 102-02-871 

1 102-02-871 

2 102-04-871 
2 102-09-871 

2 102-09-871 

1 102-09-871 

3 102-16-871 
3 102-16-871 

2 102-16-871 

2 102-16-871 

3 102-20-871 

4 102-23-871 

1 102-23-871 

2 102-24-871 

3 102-25-871 

4 102-26-871 

4 103-09-871 

5 103-24-871 

I AAAAAAAA I 


QTY. . 

1000 

1000 

1000 

1000 

610 

1000 

1000 

1000 

2000 

2000 

500 

2000 

1000 

500 

500 

1000 

500 

500 

750 

2000 


N/U/UD/D/DD/Wl/W2/Z/C/L/X/ratum/char8/lnaniB (; frame) / (.) id#? 


{0)p/(D)own/(L)eft/(R)ight/(E)xlt/date/desc/PO#? 


Within minutes of loading the B-TREE-P source 
code^is customer began using B-TREE-P's 
stand A “browser” for searching a 120,000+ 
record customer masterftte.^ Af Ty h tyrr y^T* - 
com^U^y. or address can immediately be 
locot^Rind displayed, just by typing one or 
more characters that match the field. 

No more waiting for SELECTS! 


This customer has set up B-TREE-P for 
purchase order inquiries. A file of A 
multivalued line items and submultivaluea 


be viewed by item or by date. Pages 
be scrolled at the terminal, forward o^ 
backward. Any range of data can be 
instantly printed. No more waiting for SORTsI 


Tired of waiting for your computer to SORT or SELECT your large data files? Need to quickly find any 
attribute? Want to scroll files up or down, in any sort order? Now you can use B-TREE-P to instantly search, 
sort, and scroll any data from any file! 

Now you can instantly look up customers by name, street. Zip code, or any other field -■ not just by 
customer number. Now you can immediately find inventory entries by quantity, cost, or description — not 
just by part number. Whatever files you use, now you can instantly locate and display your data any way 
you want, without having to wait for endiess SORTs and SELECTS. 

immediately display any record in any file just by typing one or more starting characters that match any 
field in the record. You can display not only a selected record, but also any previous and next records, 
using any sort order you specify. You can jump to any record in a file at any time, then browse through 
the file by scrolling up or down, a record at a time or a page at a time, in any sort order. 

As one of Semaphore’s programmers says: “We often ask ourselves why we waited so long to create B- 
TREE-P. After using it for our own production work, we wonder how we ever got by before without it. A Pick 
computer without B-TREE-P is like a car without wheels”. 









...until you use B-TREE-Pl 


t 




Current Balance ID Number Location Inmates as of 20 :34 :37 

132.99 87-015044 MCC A872 HAESSIQ. GENE JASON 
0.00 87-205075 MCC B402 HAHN, ROBERT JAMES 
20.00 87-009589 MJ 7665 HAHN, STEVEN MARK 
0.99 87-019503 MJ 33 HALL, GEORGE 
0.00 87-020649 MJ 2234 HANSEN, DAVID AMES 
32.47 87-020536 MCC D883 HANSOM, JAY LEONARD 
0.85 87-001584 MCC D228 HARGER, LIN AKA HANSOM 
0.24 87-002064 MJ 2277 HARPER, JAMES 
+-+ 

0.08 87-020596 MCC C877 HARRIS, WILLIAM KENNETH 
+-+ 

145.55 86-194689 MCC A872 HARRISS, BARRY MICHAEL 
2.63 87-019655 WCC HARTLEY, JERRY 

0.00 86-023332 WCC HAWKINS, ANDREW 

0.02 86-015797 MCC F99 HAY, THOMAS MAYNARD 
12.72 87-888802 MJ 223 HEATH, JACK ROBERT 
0.76 87-204408 MCC D22 HEBERT, JOSEPH 
24.81 87-992223 MCC E333 HEIDENREICH, JAMES 
0.00 87-884552 MJ 221 HELSETH, LAWRENCE JAMES 
30.99 86-866866 MJ 2255 HELTON, JAMES AKA MIKE 

Type an ID number, name, command, or hit RETURN;_ 

Commands are : NEW CHANGE PRINT DISPLAY DROP PRIOR NEXT MOVE 













ORDER GUST# CUSTOMER 

I# DESCRIPTION. 

S# SHP DATE QTY. . 





**************** 






33033 AlOO 

AEROSPACE 

02 BENCH, LAMINATED 

01 

09-10-87 

10 



EXP: N/A 

PROD: N/A 

SHIP: N/A 






35220 L788 

LINCOM CO 

02 BENCH, LAMINATED 01 

11-10-87 

10 



EXP: SALLY 

PROD: JAMES SHIP: QA CHECK 






35220 L788 

LINCOM CO 

02 BENCH, LAMINATED 

02 

12-10-87 

10 



EXP: SALLY 

PROD: N/A 

SHIP: N/A 






33033 AlOO 

AEROSPACE 

01 CASE, CLOCK, INS 

01 

09-10-87 

10 



EXP: N/A 

PROD: N/A 

SHIP: QA CHECK 






35220 L788 

LINCOM CO 

01 CASE, CLOCK, INS 

01 

09-10-87 

2 



EXP: N/A 

PROD: N/A 

SHIP: QA CHECK 






35220 L788 

LINCOM CO 

01 CASE, CLOCK, INS 

02 

10-10-87 

4 



EXP; N/A 

PROD; JAMES SHIP: QA CHECK 






33033 AlOO 

AEROSPACE 

03 TIP, PROBE, BAKE 

01 

09-10-87 

10 



EXP: N/A 

PROD: N/A 

SHIP: QA CHECK 








**************** 






SO# or Find or by: Part, 

Desc,Date,Rep,Name, 

Terr? 




This county jail uses B-TREE-P for inmate cash 
accenting. Although cash records are filed 
by i4late booking numbers, B-TREE-P allows 
a li^t al|3habetized by the name attribute to 
be^lpTSy^d at dirt1^es,^ven as recof^^ 
areVeated and deleted at other terminals. 
Any inmate record (or nearest match) can 
be immediately found and displayed just by 
typing one or more characters in a name. 


This manufacturer uses B-TREE-P to let 
marketing personnel instantly display soles 
orders six different ways: by part, |||l 
description, by ship date, by sales re^by 

sot e ii 'f eff itofy. With 
just a few keystrokes, operators can ipAntly 
display records under a new sort (subsorts 
too) or find and output a given item. 


B-TREE-P is a proven collection of BASIC subprograms for using B-trees on your computer system. B-trees 
allow any of the data in any of your files to be instantly located and displayed in any sort order, without 

having to wait for SORT or SELECT commands. 

B-TREE-P and a few optional minor modifications to your existing data entry programs are all that is 
necessary for you to immediately be able to search, browse, display, or print your data quickly and 

conveniently. Modifications to your existing data files are absolutely unnecessary! 

B-TREE-P includes all necessary BASIC source code for a B-tree system that works with any file. Included 
are an insertion subroutine, deletion subroutine, lookup subroutine, previous/next subroutine, and 
complete instructions. Plus, you receive the source code for a complete demonstration system that uses 
B-TREE-P to maintain a name and address file, including an editor program for creating and changing 
name and address records, a browser program for displaying records, and a printer program for listing file 

items in order without having to wait for a sort. 

To order, send your name, address, telephone number, and your check for $395 (plus tax in California) 
payable to Semaphore Corporation at 207 Granada Drive, Aptos, CA 95003. Or call us at (408) 688-9200 
for more information or to place a COD order. We’ll send you complete B-TREE-P source code listings and 

all necessary documentation, along with all back issues of our special B-tree newsletter. 


B-TREE-P Includes a license agreeement with copy, use. and transfer restrictions limiting your use of B-TREE-P to one computer at a time. 

Multi-CPU and OEM resale agreements are a^o available. 















CALC 

001 beep - CHAR<7) ; pressed - "XXX" 

002 clear - 8(0,0) :e(-l) ; CRT clear: 

003 COL - 20 ; ROW - 5 

004 CRT 6 (COL, ROW ) :"+-+": 

005 CRT e (COL,ROW+ 1) : " | +-:-+1": 

006 CRT e(COL,ROW+ 2) :"| | 11": 

007 CRT 8 (COL, ROW+ 3) :" | +--+1": 

008 CRT 8 (COL,ROW+ 4) :"|+-+|": 

009 CRT 8 (COL,ROW+ 5):"||C | / | * |P ||*: 

010 CRT 8 (COL,ROW+ 6) : " | |-+—-+-+-| |": 

Oil CRT 8(C0L,R0W+ 7) :"| I 7 | 8 | 9 | - | |": 

012 CRT 8(COL,ROW+ 8) :"| |-+-+-+-| |": 

013 CRT e(COL,ROW+ 9):"||4|5|6| + ||": 

014 CRT 8 (COL,ROW+10) :" | |-+-+-+-| I" : 

015 CRT 8(COL,ROW+ll) :"||1|2|3| ||": 

016 CRT 8 (COL,ROW+12) :" I I-+-| ||": 

017 CRT 8 (COL,ROW+13) :*| I 0 I . I - I I": 

018 CRT 8 (COL,ROW+14) :"|+-+1": 

019 CRT 8 (COL,ROW+15) :"+--+": 

020 PROMPT *" ; GOSUB reset 
021 PREC - 4 ; GOSUB digits 
022 LOOP 

023 CRT 8 (COLt2,ROW-f2) : 

024 IF OPERAND # "" THEN 
025 CRT OPERAND ”R#15": 

026 END ELSE CRT RESULT FORMAT: 

027 CRT 8 (COL+16,ROM+2) : 

028 INPUT KEY, 1: 

029 UNTIL KEY - "X" DO 

030 VAL - INDEX(''123456789",KEY, 1) 

031 BEGIN CASE 

032 CASE (VAL > 0) AND (KEY # *") 

033 KEYCOL - COL+ (MOD (VAL-1, 3) *4) +2 
034 KEYROW-ROW+(INT((9-VAL)/3)*2)+7 
035 GOSUB press ; KEY - VAL 
036 OPERAND - OPERAND:KEY ; GOSUB release 


CASE KEY - *0" 

KEYCOL - COL+2 ; KEYROW - ROW+13 
GOSUB press ; OPERAND - OPERAND:KEY 
GOSUB release 
CASE KEY - "C" 

KEYCOL - COL+2 ; KEYROW - ROW+5 
GOSUB press ; GOSUB reset; GOSUB release 
CASE KEY - "/" 

KEYCOL - COL+6 ; KEYROW - ROW+5 
GOSUB press;GOSUB execute;GOSUB release 
CASE KEY - 

KEYCOL - COL+10 ; KEYROW - ROW+5 
GOSUB press;GOSUB execute;GOSUB release 
CASE KEY - "P" 

KEYCOL - COL+14 ; KEYROW - ROW+5 
GOSUB press ; PREC - INT (OPERAND) 

IF (0 <- PREC) AND (PREC <- 4) THEN 
GOSUB digits ; GOSUB reset 
END ELSE CRT beep: 

GOSUB release 
CASE KEY - 

KEYCOL - COL+14 ; KEYROW - ROW+7 
GOSUB press;GOSUB execute;GOSUB release 
CASE KEY - "+" 

KEYCOL - COL+14 ; KEYROW - ROW+9 
GOSUB press;GOSUB execute;GOSUB release 
CASE (KEY - *-*) OR (KEY - *") 

KEYCOL - COL+14 ; KEYROW - ROW+13 
GOSUB press ; KEY - 
GOSUB execute ; GOSUB release 
CASE (KEY-'.") £ (INDEX(OPERAND,1)-0) 
KEYCOL - COL+10 ; KEYROW - ROW+13 
GOSUB press ; OPERAND - OPERAND : KEY 
GOSUB release 
CASE 1 ; CRT beep: 

END CASE 


073 REPEAT 
074 CRT clear: 

075 STOP 
076 * 

077 reset: OPERAND-'"; RESULT-O; OPERATOR-'+" 
078 RETURN 
079 * 

080 digits: PRECISION 4; FORMAT-"R" :PREC: ", #15" 
081 RETURN 
082 * 

083 press : CRT 8 (KEYCOL,KEYROW) :pressed: 

084 IGNORE - SYSTEM(13) 

085 RETURN 
086 * 

087 release: CRT 8 (KEYCOL,KEYROW) :" ' :KEY:" ' : 
088 RETURN 
089 * 

090 execute: * 

091 BEGIN CASE 

092 CASE OPERATOR - '-" 

093 IF OPERAND # '" THEN RESULT - OPERAND 
094 CASE OPERATOR - '+" 

095 RESULT - RESULT + OPERAND 
096 CASE OPERATOR - '-" 

097 RESULT - RESULT - OPERAND 
098 CASE OPERATOR - '»" 

099 RESULT - RESULT * OPERAND 

100 CASE OPERATOR - '/" 

101 IF (OPERAND - 0) OR (OPERAND - '") THEN 

102 CRT beep: ; GOSUB reset ; RETURN 

103 END 

104 RESULT - RESULT / OPERAND 

105 END CASE 

106 OPERATOR - KEY ; OPERAND - '" 

107 RETURN 

108 END 
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Pragma (not to be 
ccHifused with 
Pragma’s Product 
Profiles) is the 
original 48-page 
technical journal for 
Pick users published 
quarterly Iwginning 
in August 1982. 
Each issue is packed 
with software and 
helpful information, 
including complete 
and debugged 
program listings and 
deti^ed, explanatory 
articles for readers at 
all levels of 
e;q>erience. Order 
your Pragma issues 
today and begin 
unlocldi^ the secrets 
in your nek system! 

Send $25 for 
each 48-page 
back issue to: 
Pragma, 207 
Granada Dr., 
Aptos, CA 
95003 
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in Your Computer! 
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Remaining File Input 
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Converting Paint to 
PrMrams ” 3 Letters 
° (venerating Blank 
Forms ° Animal, A 
(vame That Learns ° 
More New 
Subscribers. 


iniiilr' 


Pragma #4: Survey 
Says... ° Pacific 
Valley Bank User 
Profile •> SYSMAP, A 
Cross-Reference 
System; Diets and 
Procs ' UncompiNng: 
Unassembling Staw 
Code ° Lett vs. Right 
Justification 
Benchmarks ° 4 Wish 
List Kerns * A 
Comparison of BASIC 
Implementations ° 
More New 
Subscribers ” An 
Undocumented EdKor 
Capability ° 3 Local 
User Group Repoite ° 
Avoiding Saved Lists 
with f^RESELECT 
° SeK-Documenting 
Reports ' A Query ° A 
Survw of Hardware 
that Supports Pick- 
Style Software ° 
Printer T rade-Offs ° 
An Introduction to 
ENGLISH:. Finding 
Files “ A Letter ” 
VANILLA, The No- 
FriHs Manufacturing 
System; Purchase 
(5ider ErKry ° The 
Swatl (Same. 


Pragma #S: Happy 
Birthdayl ° Interactive 
S^tems Producer 
Profile ” UncompiNng: 
Regenerating Source 
Code • A Day of 
Revelation ° IBM 
Personal Computer 
vs. Microdata Reality 
Benchmarks ° 
VANILLA, The No- 
FriHs Manufacturing 
Systerri: Receiving ^ 
3 Wish List Kerns ° 
An Introduction to 
ENGLISH; Being 
Choosy ° Converting 
Manuai Paint to 
Programs ° 6 Locai 
User Group Reports ” 
More New 
Subscribers ° A 
Program That 
Reports File Pointer 
Locations ° Boiler 
Plate Processing with 
Runoff * A New 
Query and an Old 
Query Answered ° 
SYSMAP, A Cross- 
Reference System: 
Automation "^Tape 
Types ° 6 Letters “ 
Permuted Index to 
the Rrst 4 Issues of 
Pragma ° Amazing, a 
Maze Game. 


Pragma #6: Pick Pie 
Pictured ° The 
Ubk^ous POINTER- 
FILE ° Uncompiling; 
Resolving Labels ” 
An Introduction to 
ENGLISH: Syntax 
Overview ° AccuSoft 
Producer Profile ” 
Rounding Out 7 
BerKhmarks On 5 
Machines ° Designing 
Data Entry Programs 
° 12 Wish List Kerns ° 
GET: An Input 
Processor ° 5 Local 
User Group Reports ” 
More New 

Subscribers ” Do You 
Know Your Proc 
Limits? ” VANILLA, 
The No-Frills 
Manufacturing 
System; inspeebon” 
2 Queries ° individuai 
Accounts or Shared 
Accounts? ° Lock 
Logic illustrated ° 
Password Protection 
° Two Undocumented 
Conversions ° A 
Letter ° How 
AMAZING Works. 


Pragma #7; More 
New Subscribers ° A 
New Machine VisKs 
Pragma ° Bantam 
Hardware Overview ° 
Suppressing 
LOCKED Clauses ” 
An Introduction to 
ENGLISH: WITH, BY 
and TOTAL ° Baritam 
Producer Profile ° 
VANILLA, The No- 
Frills Manufacturing 
System: Disp(»ition° 
A Bantam Diary ° 
New BerKhmark 
Timings for 8 More 
Machines ° 6 Local 
User Group Rmorts ° 
GET: Source (Jode ” 
A Preprocessor for 
Symbolic Statement 
Labels ” 2 Wish List 
Kerns ° 3 Queries ° 
Bantam Software 
Overview ° A Letter ° 
The Slide Game. 
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previous pending OPERATOR to 
be executed. Following CALC’s 
logic diuing the input of 
2*3+4= is a good way to 
understand how it all works. 
Initially, the reset subroutine 
sets OPERAND to null, RESULT 
to zero, and OPERATOR to +. 

When 2 is typed, 

OPERAND becomes 2 at line 
36. When * is typed, 
execute is called at line 49. 
Since the pending OPERATOR 
was initialized to + (just a 
convenient way to get things 
going), OPERAND is added to 
RESULT and the total 2 is saved 
in RESULT at line 95. 
OPERATOR is then set to the 
new pending value of * and 
OPERAND is cleared to null in 
line 106. 

When 3 is typed, 

OPERAND becomes 3 at line 
3 6. When + is typed, the 
pending OPERATOR is *, so 
OPERAND is multiplied with 
RESULT and the total 6 is saved 
in RESULT at line 99. 
OPERATOR is set to + and 
OPERAND is cleared again in 
line 106. 

When 4 is typed, 

OPERAND becomes 4 at line 
3 6. When = is typed, the 
pendinj^PERATOR is +, so 
OPERjHpis added to RESULT 
and the total 10 is saved in 

OPERj^Hs cleared again in 
line lO^Line 2 6 then displays 
the final RESULT while waiting 
for the user’s next input. 

After = has been typed and 
the final RESULT is displayed, 
two kinds of subsequent input 
may occur. The user might 
begin a new calculation by 
starting with a new number (for 
example, by typing l+2=), or 
the user might operate on the 
currently displayed result by 
starting with just an operator 
(for example, by typing *8=), 
Once a new arithmetic function 
key is typed after a previous 
result has been displayed, line 
93 makes the necessary 
adjustment to OPERAND and 
RESULT to either start a new 



Semaphore Corporation 
welcomes its newest 
B-TREE-P customers: 

Ultimate Corp. 
Computerized Data 
Rolling Homes Inc. 
Kripalu Center 



calculation or operate on a prior 
RESULT. 

Although CALC is a 
convenient tool already, you 
may want to enhance it with 
other calculator capabilities, 
such as more function keys, 
better precision, more memory, 
or programmability. How about 
a version with a scrolling 
“paper tape” instead of just a 
one-line display? 


Now available by popular demand! 

Our Pick”* Mailing List 

CREAM of the CROP 

Our 3,000 most responsive Pick users' names and addresses. 
Only $150 plus tax for one-up adhesive labels, sorted, printed, 
and delivered. Send no payment without first obtaining our 
order form and one-time use agreement. 

P/Mail by Marianne • 1893 Nadina St. • Seaside CA 93955 



Experience on experienced computer 

and save! 


system 

If you are considering the purchase of an experienced 


computer system, call us. It can save you a pile of money. 

We have a variety of systems available for We can provide you with useful information 
quick delivery. We also stock disk drives, tape on manufacturers' product lines, policies and 
subsystems, memory communications control- license fees. And, we will take your existing 
lers and anything else you might need. system in trade, but let you keep it during 

your conversion. 


CRTS ' ADDS - Wyse - and others 


Our technical staff is available to help you with any particular application 

New systems also available. 


783 Old Hickory Blvd., Suite 255A Brentwood, TN 37027 ( 615 ) 373 - 

Where someone else's experience saves you money 
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New B-TREE-P installations 
are sprouting up every day! 



B-TREE-P is software 
that allows your data to 
be instantly located and 
output, without having 
to wait for lengthy file 
sorts or searches. Join 
the growing number of 
sites discovering the 
power and flexibility of 
B-TREE-P. Write or call 
Semaphore Corporation, 
207 Granada Drive, 
Aptos, CA 95003, 

(408) 688-9200. 


A 


Long Ssach Community Services • Halprin Supt^Co. • Casualty Underwriters Inc. • Univ||sity of 
CalifoBia • Distributed Logic Corp. • Jet Electrics & Technology Inc. • NCAR • TrudelWrailer— 
Sales Inc. • Stewart Co. • Computyme • Data Operating Systems Inc. • Tel-A-Train Inc. • 
Information Technology Consultants • Life & Health Insurance Co. of America • Flynt Systems 
Corp. • System Works Inc. • Miami Trading Enterprises • Generation Research • Multisystems Inc. 

• Infocel • Cooke Data Systems Inc. • John Klein & Assoc. Inc. • Condominium Insurance • Penn 
Independent Assoc. Inc. • Mark Card • Chandler Lumber Co. • Eye Care & Surgery Center • 
Chicago Kenworth • Wofford College • Conston Inc. • Assertive Systems • Office Works • Cornell 
University • City of Irvine • Excalibur Computer Systems Inc. • ADDS Inc. • Specs Music • 
Specialty Underwriters Inc. • Shoob Photography • May Trucking • Sierra Software Inc. • Medical 
Accounting Systems • AIPAC • NORPAC • Martin Cadillac Co. Inc. • Capital Software Ltd. • 
Oman Publishing • Reinsurance Assoc. • Hubert Distributing Co. • Livermore Police Dept. • 
Creative Computer Services • San Mateo County • Berelson Co. • Minnesota Trade Office • 
XScribe Corp. • Glastron-Conroy Ltd. • Opportunities Unlimited -Topsy’s International Inc. - ACS 
Systems Inc. • Bronson & Bratton Inc. • Access Software Inc. • Pactel Paging • United Collection 
Bureau Inc. • Laub Group Inc. • Associated Students UCLA • Brooks Equipment Co. Inc. • 
Anthony Pools • Samuelson Assoc. Co. • Educators Mutual Insurance • Magic Chef Air 
Conditioning Co. • Crosstern Corp. • Spectradyne Inc. • Tampa Bay Mgmt. Services Inc. • 
Northwest Agricultural Coop Assoc. • Century Publishing Co. • J & L Industrial Supply Co. Inc. • 
Vitek Systems Inc. • M. Epstein Inc. • Partners National Health Plans • Lilyblad Petroleum • Target 
Supply • Aerojet General • Systems Support Services • Moore Industries • Wavetek • Unison 
Technologies Inc. • Meditech • Call U.S. Inc. • Smithsonian Institution • Zircon Co. Inc. • 
Tennessee Mat Co. • Kreepy Krauly USA • Electronic Business • Butterfields • Monterey County • 
Compu Components • Victory Express Inc. • Toyota of Irving • Elliott-Pope School. 
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